(** Module DumpHTML
 *
 *  Author: Jk
 *)

open IL

let options = GenDummy.options

let genRule rule = rule.Rule.name

let genDefinition gram = String.concat HTMLView.br (List.map genRule gram)

let generator _ (*conf*) gram =
  print_endline ( genDefinition gram.Definition.grammar )